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uses the package- 

libarary CUSTATES 

use STATES CU.LISTS CU.all 



signal futurejtate : string; 



. <±t*****jH^^ k kkkkkkk kkk kk k kk 

- Package states of the Control Unit 



package lists_CU is 
type string is 



(NEUTRAL, 



COCK 1 STATE 1 1 1 mil 



IDLE, FIRST, SECOND 



♦-BLOCK 2 STATE 



THIRD, FIFTH, SIXTH 



♦-BLOCK 3 STATE m i 



FOURTH. SEVENTH ); 



end lists CU; 
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COMB_DECISION : process (state_ONE. stateJWO. stateJHREE) 




begin 
if 


(state_ONE =/ NEUTRAL) then 


newjtate <= state_ONE; 




el seif 


(stateJWO =/ NEUTRAL) then 


newjtate <= state JM); 




elseif 


(stateJHREE =/ NEUTRAL) then 


newjtate <= stateJHREE; 




else 
endif 

end process COMB DECISION 


newjtate <= IDLE; 




MEMO_DECISION : process (RESET, CLOCK, newjtate) 
begin 

if RESET = '0' then absolute jtate <= IDLE; 




elseif CLOCK = T and CLOCK' event then 

absolute jtate <= newjtate; 




endif; 

end process MEMOJECISION 
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3 
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uses the package 

libarary CU STATES 

use STATES CU.LISTS CU.all 




6 



( 



signal futurestate : string; 

-- Package states of the Control Unit 

.. AAAAAAAAA * AAAA ** AA*AAAAAAAAAA - AAAAAAAAAA 

package lists_CU is 
type string is 

(NEUTRAL. 

— 1 1 1 1 1 1 1 1 1 1 1 i B LOCK 1 STATE' "" i m i nn 

IDLE. FIRST. SECOND 

- - m BLOCK jjTATE 




FOURTH. 



SEVENTH ); 



end lists CU; 
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C0MB_DECISION : process (state_0NE. stateJWO, stateJHREE) 






beginif (state_0NE =/NEUTRAL) then newjtate <= state_0NE; 




elseif (stateJHREE =/NEUTRAL) then newjtate <= state_THREE; 






else newjtate <= IDLE; 








endif 








end process C0MB_DECISI0N 








MEMOJECISION : process (RESET. CLOCK, new state) 






begin 








if RESET - T then absolute jtate <= 


IDLE; 


I RESET 






elseif CLOCK = '1' and CLOCK' event then absolute state <= newjtate; 






endif; 




CLOCK 








end process MEM0_DECISI0N 
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signal futurejtate : string; 

. . A A A * * A A A A - A A A A A A A A A ********** M A* A A A A A A A 

-- Package states of the Control Unit 

.. A - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

package lists_CU is 
type string is 



IDLE. FIRST. SECOND 
-i H i n i H iii B LOCKj STATE " hi it hi mi 

THIRD. FIFTH, SIXTH 
- - u i m h 1 1 1 1 » B L0CK_3_STATE ' ' 1 1 1 i i i i 

FOURTH. SEVENTH. EIGHTH. NINTH ); 
end lists_CU; 



uses the package 

libarary CU STATES 

use STATES CU.LISTS CU.all 




(NEUTRAL. 



■BLOCK 1 STATE 'mi Minim i 
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RESET 

clock" 



COMB_DECISION : process (state_ONE. stateJWO. stateJHREE) 

beginif (state_ONE =7NEUTRAL) then newjtate <= state_ONE; 

elseif (stateJWO =/NEUTRAL) then newjtate <= state_TWO; 

el seif (state_THREE =/NEUTRAL) then newjtate <= state_THREE; 

else newjtate <= IDLE; 
endif 

end process COMB DECISION 



MEMOJECISION : process (RESET. CLOCK, newjtate) 
begin 

if RESET = '0' then absolute jtate <= IDLE; 

elseif CLOCK = '1' and CLOCK' event then absolute state <= new state; 



endif; 

end process MEMO_DECISION 
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uses the package 

libarary CUSTATES 

use STATES CU.LISTS CU.all 
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signal futurejtate : string; 

.. kkkkkkkkk - kk - kk - kkk ' k ' k - k - kkkkkkkkkkkkkkkkkkk 

-- Package states of the Control Unit 

. . A A AAA A AA hH ' k AA AA A - A A A - A A * A it A A A A A A A kkkkkk 

package lists_CU is 
type string is 

(NEUTRAL, 

- " i ' i D LOCK_l_STATE in 

IDLE. FIRST, SECOND 

- . -h-w-hhh+hB LOCK 2 STATE -h-h in 

THIRD, FIFTH. SIXTH 

- - 1 1 1 1 1 1 D L0CK_3_STATE " i n 

FOURTH. SEVENTH. 

- - 1 1 1 1 1 1 1 1 1 1 1 BLOCK_NEW_STATE in 

EIGHTH, NINTH. TENTH ); 
end lists_CU; 
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